IF exists(SELECT * FROM dbo.sysobjects WHERE name='maakMailNaam' AND xtype='P') 
BEGIN
	DROP PROCEDURE maakMailNaam
END
GO

CREATE      procedure maakMailNaam
as
delete from mailNamen

declare @achternaam varchar(50)
declare @voornaam varchar(50)
declare @deAchternaam varchar(50)
declare @deVoornaam varchar(50)
declare @inschrijvingsNr char(7)
declare @klas char(5)
declare @mailNaam varchar(20)

declare deCursor cursor local for
select l.achternaam, l.voornaam,l.inschrijvingsNr,l.klas
from leerlingen as l 

open deCursor
fetch next from deCursor 
      	into @achternaam,@voornaam,@inschrijvingsNr,@klas

while (@@fetch_status=0)
begin
--De naam opstellen
    set @mailNaam = dbo.AD_transformeer(@voornaam,@achternaam)
-- De gegevens overbrengen
    insert into mailNamen (inschrijvingsNr,achternaam,voornaam,mailNaam,klas) 
        values(@inschrijvingsNr,@achternaam,@voornaam,@mailNaam,ltrim(rtrim(@klas)))
    fetch next from deCursor into 
		 @achternaam,@voornaam,@inschrijvingsNr,@klas
end
close deCursor 	
deallocate deCursor